home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 32 / Amiga Format AFCD32 (Nov 1998, Issue 117).iso / -seriously_amiga- / programming / e / newgui / src / plugins / pl_displayimage.e < prev    next >
Text File  |  1998-08-10  |  768b  |  28 lines

  1. OPT     OSVERSION = 37
  2. OPT     MODULE
  3.  
  4. MODULE  'intuition/intuition'
  5. MODULE  'newgui/newgui'
  6.  
  7. EXPORT  CONST   IMAGE = PLUGIN
  8.  
  9. EXPORT OBJECT displayimage OF plugin
  10.  img    :PTR TO image
  11. ENDOBJECT
  12.  
  13. PROC displayimage(img:PTR TO image)     OF displayimage 
  14.  self.img:=img
  15. ENDPROC
  16.  
  17. PROC message_test(imsg,win)             OF displayimage IS FALSE
  18.  
  19. PROC message_action(class,qual,code,win)OF displayimage IS FALSE
  20.  
  21. PROC min_size(ta,fh)                    OF displayimage IS self.img.width,self.img.height
  22.  
  23. PROC will_resize()                      OF displayimage IS 0
  24.  
  25. PROC render(ta,x,y,xs,ys,win:PTR TO window) OF displayimage     IS DrawImage(win.rport,self.img,x,y)
  26.  
  27. PROC clear_render(win:PTR TO window)    OF displayimage IS EraseImage(win.rport,self.img,self.x,self.y)
  28.